home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Word / Macn-Mc / MagicModemClock < prev    next >
Text File  |  1988-01-10  |  2KB  |  71 lines
  1. (Set Modem Clock procedure by Dick Kriss, KD5VU 07-Jan-87 for the Magic Modem 
  2. (to work with a Mac Plus (Chooser Clock set for 24 hour time). One of
  3. (the interesting things about this procedure is it read the Mac's time and 
  4. (converts the format to the way the Magic wants to see it. The Magic format to 
  5. (set the time is "AT*T=MM/DD/HH/MMA OR MMP (the A = AM & P = PM)
  6. (The is a modification to Ray Terry's clock set procedure for the AEA PK-232
  7. (R.Kriss, GEnie; KD5VU @ KB5PM, packet radio; kriss@austin.lockheed.com
  8. (---------------------This is the real stuff --------------------)
  9. (Set CRAWL ON while debugging, OFF when finished
  10. CRAWL OFF
  11. (A% reserved to get Year, the Magic Modem 1200 does not ask for the year
  12. (Get the month and pad with a "0" to get 2 digits required.)
  13. GETGLOBAL B%,5
  14. NUMTOSTRING B%,B$
  15. TEST B% <= 9
  16. IF YES CONCAT O$,B$
  17. TEST B% <= 9
  18. IF YES COPYINTO B$,O$
  19. (Get the date and pad to get two digitis.)
  20. GETGLOBAL C%,6
  21. NUMTOSTRING C%,C$
  22. COPYINTO O$,0
  23. TEST C% <= 9
  24. IF YES CONCAT O$,C$
  25. TEST C% <= 9
  26. IF YES COPYINTO C$,O$
  27. (Get the hour and pad as necessary to convert from 24 hr time to 12 hrs.)
  28. GETGLOBAL D%,8
  29. (Convert 24 hours to 12 hour
  30. TEST D% > 12
  31. IF YES SUBTRACT D%,12
  32. NUMTOSTRING D%,D$
  33. COPYINTO O$,0
  34. TEST D% <= 9
  35. IF YES CONCAT O$,D$
  36. IF YES COPYINTO D$,O$
  37. (At this point you have a number_string 00 to 12 without regard to AM or PM
  38. (Get the minutes and pad if necessary.)
  39. GETGLOBAL E%,9
  40. NUMTOSTRING E%,E$
  41. COPYINTO O$,0
  42. TEST E% <= 9
  43. IF YES CONCAT O$,E$
  44. TEST E% <= 9
  45. IF YES COPYINTO E$,O$
  46. (Get the 24 hour time again to determine If AM or PM and add A or P to E$.)
  47. (This will set a Flag to be be added to E$)
  48. GETGLOBAL F%,8
  49. TEST F% <=11
  50. IF YES COPYINTO F$,Y
  51. IF NO COPYINTO F$,N
  52. CONTAINS F$,Y
  53. IF YES CONCAT E$,A
  54. CONTAINS F$,N
  55. IF NO CONCAT E$,P
  56. (Jam all this stuff together in one string variable called B$.)
  57. CONCAT B$,/
  58. CONCAT B$,C$
  59. CONCAT B$,/
  60. CONCAT B$,D$
  61. CONCAT B$,/
  62. CONCAT B$,E$
  63. (Enter the Magic 1200 Modem Command to set the time.)
  64. TYPE ^c
  65. TYPE AT*T= 
  66. TYPE B$
  67. TYPE ^M
  68. (All done...)
  69. (Now compile this using RR10.3 and it will set the Magic Modem 1200's clock)
  70. (PS: Let me know what good the clock is for and why it is in the modem)